home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 6 / CDL_N6.iso / mac / CD Loisirs N°6 / PaperPlanes / Paper Planes / Planes / 00050.ls < prev    next >
Encoding:
Text File  |  1994-08-25  |  383 b   |  18 lines
  1. on mouseDown
  2.   puppetSprite(the clickOn, 1)
  3.   buttonDown(the clickOn, the number of cast "HelpNorm", the number of cast "HelpHiLite")
  4. end
  5.  
  6. on mouseUp
  7.   global ReturnPage
  8.   set test to buttonUp(the clickOn)
  9.   puppetSprite(the clickOn, 0)
  10.   if test then
  11.     cursor(4)
  12.     unLoadCast(ReturnPage & "S1")
  13.     unLoadCast(ReturnPage & "S2")
  14.     removeSubUI()
  15.     go("SubHelp")
  16.   end if
  17. end
  18.